home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD016a.dsk / PAL.92064.WEILER.DEC.82.A.bas < prev    next >
BASIC Source File  |  2003-06-12  |  4KB  |  111 lines
  1. 10000  HOME 
  2. 10010  INVERSE 
  3. 10020 K$ = "ILLEGAL LINE NUMBERS"
  4. 10030  FOR A = 1 TO  LEN(K$): HTAB 38: PRINT ":" MID$ (K$,A,1): NEXT 
  5. 10040  POKE 33,37
  6. 10050  NORMAL 
  7. 10060  HOME 
  8. 10070  PRINT "EVER WONDER HOW TO PUT ILLEGAL"
  9. 10080  PRINT "LINE NUMBERS INTO PROGRAMS?"
  10. 10090  PRINT "THIS IS THE EASIEST WAY I KNOW TO DO IT."
  11. 10100  PRINT 
  12. 10110  PRINT "FIRST TYPE IN THE LINE YOU WANT,"
  13. 10120  PRINT "USING A VALID LINE NUMBER..."
  14. 10130  PRINT 
  15. 10140  GOSUB 51000
  16. 10150  PRINT 
  17. 10160  PRINT "THE LINE NUMBER IS STORED IN"
  18. 10170  PRINT "MEMORY AT LOCATIONS 2051 (LEAST"
  19. 10180  PRINT "SIGNIF. BYTE) AND 2052 (MOST)."
  20. 10190  PRINT "SO IN THIS LINE..."
  21. 10200  PRINT : GOSUB 51000: PRINT 
  22. 10210  PRINT "100 SHOULD BE THE VALUE IN MEMORY"
  23. 10220  PRINT "LOCATION 2051."
  24. 10230  PRINT 
  25. 10240 K$ = "PRINT PEEK(2051)": GOSUB 50000
  26. 10250  PRINT "100": GOSUB 53000
  27. 10260  GOSUB 52000
  28. 10270  HOME 
  29. 10280  PRINT "LET'S CHANGE 2051."
  30. 10290  PRINT 
  31. 10300 K$ = "POKE 2051,255": GOSUB 50000: GOSUB 53000(93)
  32. 10310  PRINT 
  33. 10320 K$ = "LIST": GOSUB 50000
  34. 10330  PRINT 
  35. 10340 K$ = "255 REM  **** CALL 230-4939 ****": PRINT K$: GOSUB 53000
  36. 10350  PRINT 
  37. 10360  PRINT "ILLEGAL NUMBERS ARE POSSIBLE WHEN"
  38. 10370  PRINT "YOU CHANGE THE VALUE IN 2052."
  39. 10380  PRINT 
  40. 10390 K$ = "POKE 2052,255": GOSUB 50000: GOSUB 53000
  41. 10400 K$ = "LIST": GOSUB 50000: PRINT : PRINT "65535 REM  **** CALL 230-4939 ****": GOSUB 53000
  42. 10410  GOSUB 52000
  43. 10420  HOME 
  44. 10430  PRINT "AFTER THE LINE IS FINISHED, IT IS"
  45. 10440  PRINT "STUCK ONTO THE END OF YOUR APPLESOFT"
  46. 10450  PRINT "PROGRAM BY USING 'RENUMBER' FROM THE"
  47. 10460  PRINT "DOS 3.3 SYSTEM MASTER DISKETTE."
  48. 10470  PRINT 
  49. 10480  PRINT " 1.  SAVE YOUR ILLEGAL LINE NUMBER"
  50. 10490  PRINT "     TO DISK."
  51. 10500  PRINT " 2.  RUN RENUMBER"
  52. 10510  PRINT " 3.  LOAD YOUR ILLEGAL LINE NUMBER"
  53. 10520  PRINT "     FROM DISK"
  54. 10530  PRINT " 4.  TYPE";:K$ = "'&H'": GOSUB 50000
  55. 10540  PRINT " 5.  LOAD THE PROGRAM TO WHICH YOU"
  56. 10550  PRINT "     WISH TO ADD THE ILLEGAL LINE."
  57. 10560  PRINT " 6.  TYPE";:K$ = "'&M'": GOSUB 50000
  58. 10570  PRINT 
  59. 10580  PRINT " 7.  THERE IS NO STEP 7. YOU'RE DONE"
  60. 10590  GOSUB 52000
  61. 10600  HOME 
  62. 10610  PRINT "YOU CAN USE MANY ILLEGALLY NUMBERED"
  63. 10620  PRINT "LINES, AND RENUMBER WILL"
  64. 10630  PRINT "KEEP THEM IN ORDER FOR YOU."
  65. 10640  PRINT "HOWEVER, IF YOU USE THE SAME LINE"
  66. 10650  PRINT "NUMBER FOR MORE THAN ONE LINE, EVERY"
  67. 10660  PRINT "TIME YOU CYCLE THE PROGRAM THROUGH"
  68. 10670  PRINT "RENUMBER THE SEQUENCE OF THE LINES"
  69. 10680  PRINT "WILL BE REVERSED AS SHOWN ON THE"
  70. 10690  PRINT "NEXT PANEL."
  71. 10700  GOSUB 52000
  72. 10710  HOME 
  73. 10720 K$ = "0 REM ** FIRST LINE **": GOSUB 50000: GOSUB 53000
  74. 10730 K$ = "&H": GOSUB 50000: GOSUB 53000
  75. 10740 K$ = "0 REM ** SECOND LINE **": GOSUB 50000: GOSUB 53000
  76. 10750 K$ = "&M": GOSUB 50000: GOSUB 53000
  77. 10760 K$ = "LIST": GOSUB 50000
  78. 10770  PRINT 
  79. 10780  PRINT "0 REM  *** FIRST LINE ***"
  80. 10790  PRINT "0 REM  *** SECOND LINE ***"
  81. 10800  GOSUB 53000
  82. 10810 K$ = "&H": GOSUB 50000: GOSUB 53000
  83. 10820 K$ = "&M": GOSUB 50000: GOSUB 53000
  84. 10830 K$ = "LIST": GOSUB 50000
  85. 10840  PRINT 
  86. 10850  PRINT "0 REM  *** SECOND LINE ***"
  87. 10860  PRINT "0 REM  *** FIRST LINE ***"
  88. 10870  GOSUB 52000
  89. 10880  HOME 
  90. 10890  PRINT "PRESS R TO RE-RUN"
  91. 10900  PRINT 
  92. 10910  PRINT "ANY OTHER KEY TO EXIT."
  93. 10920  GOSUB 52000
  94. 10930  IF A = 210  THEN  RUN 
  95. 10940  TEXT 
  96. 10950  PRINT : PRINT  CHR$(4)"RUN PAL.MENU"
  97. 10960  END 
  98. 50000  FOR A = 1 TO  LEN(K$): PRINT  MID$ (K$,A,1);: FOR B = 1 TO 1:C =  PEEK(49200): NEXT : FOR C = 1 TO 29: NEXT : NEXT : PRINT : RETURN 
  99. 51000 K$ = "100 REM **** CALL 230-4939 ****"
  100. 51010  GOSUB 50000
  101. 51020  RETURN 
  102. 52000  VTAB 22: HTAB 30: PRINT "KEYPRESS"
  103. 52010  POKE 49168,0
  104. 52020 K$(1) = "<<<<>>>>":K$(5) = ">>>><<<<":K$(2) = "(((())))":K$(4) = "))))((((":K$(3) = "!!!!!!!!"
  105. 52030  FOR Z = 1 TO 5
  106. 52040  VTAB 23: HTAB 30
  107. 52050  FOR A = 1 TO  LEN(K$(Z)): PRINT  MID$ (K$(Z),A,1);: NEXT 
  108. 52060  NEXT Z
  109. 52070 A =  PEEK(49152): IF A <128  THEN 52030
  110. 52080  POKE 49168,0: RETURN 
  111. 53000  PRINT  CHR$(13); CHR$(93);: RETURN